#lang racket

(require "queue.rkt")

;Процедура delete-queue! изменяет только указатель на голову очереди. 
;Поэтому чтобы правильно отображать очередь нужно печатать только указатель 
;на голову.

(define q1 (make-queue))

(print-queue (insert-queue! q1 'a))

(print-queue (insert-queue! q1 'b))

(print-queue (delete-queue! q1))

(print-queue (delete-queue! q1))
